Komputer for Alle 2001 #11/CD 11 (Black) - 2001.iso/Fruity/FRUTFOOT.DXR/00004_MainRoutines Used.ls

Text File | 1998-04-13 | 6.1 KB | 292 lines

global gGuyObj, gBoxCoverUpManager, gChompSoundFlag, gOffChompFlag, gGuyLocH, gGuyLocV, gCurrentTravelProps, gStartTimerFlag, gSoundCst, gInitialColorDepth, gInteruptFlag, gPathDelim, flushActive, gCounter, gEnable, gisTimeRunning, gSoundSwitch

on startMovie
  cursor(4)
  set flushActive to 0
  set the mouseDownScript to EMPTY
  set the mouseUpScript to EMPTY
  set the timeoutScript to EMPTY
  preloadMember(31, 58)
end

on stopMovie
  if not IsShockWave() then
    if the machineType <> 256 then
      if not IsProj() then
        closeXLib(the pathName & "JOHNNY.XOBJ")
      end if
    end if
  end if
end

on IsProj
  return 1
end

on IsShockWave
  return 0
end

on puppetSnd chan, soundNum
  if (chan > 10) or stringp(chan) then
    if stringp(chan) then
      if chan = EMPTY then
        exit
      end if
    else
      if chan <= 0 then
        exit
      end if
    end if
    puppetSound(chan)
    exit
  end if
  if stringp(soundNum) then
    if soundNum = EMPTY then
      exit
    end if
  else
    if soundNum <= 0 then
      exit
    end if
  end if
  puppetSound(chan, soundNum)
end

on envTest
  if the machineType <> 256 then
    if the soundLevel = 0 then
      alert("The sound level must be set above 0 for Bob and Weave to Box. The sound level is being set to 5.")
      set the soundLevel to 5
    end if
    if IsProj() then
      if the colorDepth <> 8 then
        alert("Your monitor is being set to 8 bit to optimize performance. Your monitor will automatically be set back to " & the colorDepth & " when you quit.")
        set gInitialColorDepth to the colorDepth
        set the colorDepth to 8
      end if
    end if
  end if
end

on StartGame
  cursor(4)
  if not IsShockWave() then
    if the machineType = 256 then
      set gPathDelim to "\"
    else
      set gPathDelim to ":"
      if not IsProj() then
        openXLib(the pathName & "JOHNNY.XOBJ")
      end if
    end if
  end if
  resetCursor()
end

on initGame
  initGlobals()
  initObjects()
  InitTimer()
  pauseTimer()
end

on initGlobals
  clearGlobals()
  set gInitialColorDepth to 0
  set gInteruptFlag to 0
  repeat with n = 11 to 27
    puppetSprite(n, 1)
  end repeat
  set gChompSoundFlag to 0
  set gOffChompFlag to 0
  set gGuyLocH to point(0, 0)
  set gGuyLocV to point(0, 0)
  set gSoundCst to 0
  set gCounter to 0
  set gEnable to 1
  set gisTimeRunning to 0
  set gSoundSwitch to 0
end

on initObjects
  set gGuyObj to new(script "ChompingGuyObj")
  set gBoxCoverUpManager to new(script "BoxCover")
  set gCurrentTravelProps to getAt(the pGuyTravelList of gGuyObj, 1)
end

on slide chan, H2, V2, steps, waitTime
  set deltaH to the locH of sprite chan - H2
  set deltaV to the locV of sprite chan - V2
  repeat with incr = 1 to steps
    set theTime to the timer
    set the locH of sprite chan to H2 + (deltaH * (steps - incr) / steps)
    set the locV of sprite chan to V2 + (deltaV * (steps - incr) / steps)
    updateScreen()
    updateStage()
    repeat while the timer < (theTime + waitTime)
      updateScreen()
    end repeat
  end repeat
end

on resetCursor
  cursor(200)
  cursor([2, 3])
end

on updateScreen
  if the pPosInTravelList of gGuyObj = 18 then
    exit
  end if
  UpdateGuy()
  updateTimer()
  if gisTimeRunning then
    UpdateAmbient()
  end if
end

on UpdateAmbient
  if not soundBusy(1) then
    puppetSound(1, 23)
    set gSoundCst to 23
  end if
end

on Dissolvetransition
  if not IsShockWave() then
    if the machineType <> 256 then
      puppetTransition(51, 2)
    else
      puppetTransition(24, 2, 12)
    end if
  end if
end

on UpdateGuy
  if the pPosInTravelList of gGuyObj = 18 then
    exit
  end if
  if the mouseDown then
    case rollOver() of
      40:
        if gSoundSwitch = 0 then
          set gSoundSwitch to 1
        end if
        if gSoundCst = 17 then
          mDragGuy(gGuyObj)
          mUpdateGuy(gGuyObj, 2)
        else
          puppetSound(1, 17)
          updateStage()
          set gSoundCst to 17
        end if
      otherwise:
        if gSoundSwitch = 0 then
          exit
        end if
        if gSoundCst = 20 then
          mUpdateGuy(gGuyObj, 1)
        else
          puppetSound(1, 20)
          set gSoundCst to 20
          set the memberNum of sprite 40 to getaProp(the pGuyList of gGuyObj, getAt(gCurrentTravelProps, 1)) + 2
          set gGuyLocH to the locH of sprite 40
          set gGuyLocV to the locV of sprite 40
          updateStage()
        end if
    end case
  else
    if gSoundSwitch = 1 then
      puppetSound(0)
      set gSoundCst to 0
      set the memberNum of sprite 40 to getaProp(the pGuyList of gGuyObj, getAt(gCurrentTravelProps, 1)) + 2
      updateStage()
      set gSoundSwitch to 0
    end if
  end if
end

on StartChompSound
  if not gisTimeRunning then
    resumeTimer()
    set gisTimeRunning to 1
  end if
  if the pPosInTravelList of gGuyObj = 18 then
    exit
  end if
  set gSoundSwitch to 1
  puppetSound(1, 17)
  updateStage()
  set gSoundCst to 17
end

on SetGuyLocMonitor
  set gGuyLocV to the locV of sprite 40
  set gGuyLocH to the locH of sprite 40
end

on resetGame
  puppetSound(1, 22)
  set gSoundCst to 22
  updateStage()
  repeat with c = 1 to 42
    puppetSprite(c, 0)
  end repeat
  go(the frame - 2)
  repeat while soundBusy(1)
  end repeat
end

on UStage theTime
  updateStage()
  repeat while the timer < theTime
  end repeat
end

on wait sticks
  set theTime to the timer
  repeat while the timer < (theTime + sticks)
  end repeat
end

on InitTimer
  global gTimerActive, gTime, gNext
  set gTimerActive to 1
  set gTime to 60
  set gNext to the ticks + 60
end

on pauseTimer
  global gTimerActive, gTime, gNext
  set gTimerActive to 0
end

on resumeTimer
  global gTimerActive, gTime, gNext
  set gTimerActive to 1
  set gNext to the ticks + 60
end

on updateTimer
  global gTimerActive, gTime, gNext
  if not gTimerActive then
    exit
  end if
  if the ticks < gNext then
    exit
  end if
  if gTime > 0 then
    set gTime to gTime - 1
  else
    resetGame()
    repeat while soundBusy(1)
    end repeat
    abort()
  end if
  set gNext to the ticks + 60
  set the castNum of sprite 5 to 62 + (gTime / 60)
  set the castNum of sprite 4 to 62 + (gTime mod 60 / 10)
  set the castNum of sprite 3 to 62 + (gTime mod 10)
end